home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / WIREPLAY / INTRO.DXR / 00025_Field_25.txt < prev   
Text File  |  1997-10-28  |  938b  |  33 lines
  1. on CheckUserStatus
  2.   global gNewUser
  3.   put 0 into gNewUser
  4.   
  5.   put FileIO (mNew, "read", "C:\Windows\mci2000.ins") into readObject
  6.   
  7.   
  8.   alert "FileIO instanciated = " && readObject
  9.   
  10.   if readObject = -33 then alert "File directory full"
  11.   if readObject = -34 then alert "Volume Full"
  12.   if readObject = -35 then alert "Volume not found"
  13.   if readObject = -36 then alert "I/O error"
  14.   if readObject = -37 then alert "Bad File Name"
  15.   if readObject = -38 then alert "File not open"
  16.   if readObject = -42 then alert "Too many open files"
  17.   if readObject = -43 then alert "File Not Found"
  18.   if readObject = -56 then alert "N such drive"
  19.   if readObject = -65 then alert "No disk in drive"
  20.   if readObject = -120 then alert "Directory not found"
  21.   
  22.   
  23.   
  24.   if readObject = -43 then
  25.     alert "File Not Found"
  26.     put 1 into gNewUser
  27.   else
  28.     put 0 into gNewUser
  29.     readObject (mDispose)
  30.   end if
  31.   
  32. end
  33.